home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
vol15n11.zip
/
REXBOX.ZIP
/
OEM.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-01-28
|
658b
|
18 lines
/* MCI REXX Sample #1 */
/* Sample REXX Script */
/* this script shows you how to query the manufacturer of a CD device */
/* you can use this script to tailor your programs for specific */
/* hardware devices/manufacturers */
rc = RXFUNCADD('mciRxInit','MCIAPI','mciRxInit')
InitRC = mciRxInit()
/* Open the CD */
rc = mciRxSendString("open cdaudio alias supercd wait", 'Retst', '0', '0')
rc = mciRxSendString("info supercd product wait", 'Retst', '0', '0')
say 'CD is model: ' Retst
rc = mciRxSendString("close supercd wait", 'Retst', '0', '0')
say 'Finished SuperCD Manufacturer query'
exit